home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HAM Radio 1997
/
HAM Radio 1997.iso
/
java
/
leja.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1996-04-08
|
6KB
|
272 lines
unit Leja;
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls, Buttons, ExtCtrls,PRINTERS;
type
TForm4 = class(TForm)
Image1: TImage;
Memo1: TMemo;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
LABEL1: TLabel;
Label2: TLabel;
Memo2: TMemo;
procedure BitBtn1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Button2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Button3MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Button4MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Button5MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Button6MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Button7MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure BitBtn1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure BitBtn2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
implementation
{$R *.DFM}
procedure TForm4.BitBtn1Click(Sender: TObject);
begin
CLOSE;
end;
procedure TForm4.Button1Click(Sender: TObject);
begin
MEMO1.CLEAR;
MEMO1.HEIGHT:=97;
MEMO1.WIDTH:=145;
MEMO1.LEFT:=480;
MEMO1.TOP:=224;
MEMO1.LEFT:=272;
MEMO1.TOP:=8;
MEMO1.HEIGHT:=313;
MEMO1.WIDTH:=353;
MEMO2.CLEAR;
MEMO1.LINES.LOADFROMFILE('\TEXT\LJAVA1.TXT');
MEMO2.LINES.LOADFROMFILE('\TEXT\LJAVA1.TXT');
end;
procedure TForm4.Button2Click(Sender: TObject);
begin
MEMO1.CLEAR;
MEMO1.HEIGHT:=97;
MEMO1.WIDTH:=145;
MEMO1.LEFT:=480;
MEMO1.TOP:=224;
MEMO1.LEFT:=272;
MEMO1.TOP:=8;
MEMO1.HEIGHT:=313;
MEMO1.WIDTH:=353;
MEMO2.CLEAR;
MEMO1.LINES.LOADFROMFILE('\TEXT\LJAVA2.TXT');
MEMO2.LINES.LOADFROMFILE('\TEXT\LJAVA2.TXT');
end;
procedure TForm4.Button3Click(Sender: TObject);
begin
MEMO1.CLEAR;
MEMO1.HEIGHT:=97;
MEMO1.WIDTH:=145;
MEMO1.LEFT:=480;
MEMO1.TOP:=224;
MEMO1.LEFT:=272;
MEMO1.TOP:=8;
MEMO1.HEIGHT:=313;
MEMO1.WIDTH:=353;
MEMO2.CLEAR;
MEMO1.LINES.LOADFROMFILE('\TEXT\LJAVA3.TXT');
MEMO2.LINES.LOADFROMFILE('\TEXT\LJAVA3.TXT');
end;
procedure TForm4.Button4Click(Sender: TObject);
begin
MEMO1.CLEAR;
MEMO1.HEIGHT:=97;
MEMO1.WIDTH:=145;
MEMO1.LEFT:=480;
MEMO1.TOP:=224;
MEMO1.LEFT:=272;
MEMO1.TOP:=8;
MEMO1.HEIGHT:=313;
MEMO1.WIDTH:=353;
MEMO2.CLEAR;
MEMO1.LINES.LOADFROMFILE('\TEXT\LJAVA4.TXT');
MEMO2.LINES.LOADFROMFILE('\TEXT\LJAVA4.TXT');
end;
procedure TForm4.Button5Click(Sender: TObject);
begin
MEMO1.CLEAR;
MEMO1.HEIGHT:=97;
MEMO1.WIDTH:=145;
MEMO1.LEFT:=480;
MEMO1.TOP:=224;
MEMO1.LEFT:=272;
MEMO1.TOP:=8;
MEMO1.HEIGHT:=313;
MEMO1.WIDTH:=353;
MEMO2.CLEAR;
MEMO1.LINES.LOADFROMFILE('\TEXT\LJAVA5.TXT');
MEMO2.LINES.LOADFROMFILE('\TEXT\LJAVA5.TXT');
end;
procedure TForm4.Button6Click(Sender: TObject);
begin
MEMO1.CLEAR;
MEMO1.HEIGHT:=97;
MEMO1.WIDTH:=145;
MEMO1.LEFT:=480;
MEMO1.TOP:=224;
MEMO1.LEFT:=272;
MEMO1.TOP:=8;
MEMO1.HEIGHT:=313;
MEMO1.WIDTH:=353;
MEMO2.CLEAR;
MEMO1.LINES.LOADFROMFILE('\TEXT\L5.TXT');
MEMO2.LINES.LOADFROMFILE('\TEXT\L5.TXT');
end;
procedure TForm4.Button7Click(Sender: TObject);
begin
MEMO1.CLEAR;
MEMO1.HEIGHT:=97;
MEMO1.WIDTH:=145;
MEMO1.LEFT:=480;
MEMO1.TOP:=224;
MEMO1.LEFT:=272;
MEMO1.TOP:=8;
MEMO1.HEIGHT:=313;
MEMO1.WIDTH:=353;
MEMO2.CLEAR;
MEMO1.LINES.LOADFROMFILE('\TEXT\L6.TXT');
MEMO2.LINES.LOADFROMFILE('\TEXT\L6.TXT');
end;
procedure TForm4.BitBtn2Click(Sender: TObject);
VAR
MYFILE:TEXTFILE;
LI:INTEGER;
begin
AssignPrn(MyFile);
Rewrite(MyFile);
Writeln(MyFile, ' ');
Writeln(MyFile, ' ');
Writeln(MyFile, ' ');
Writeln(MyFile, ' '+LABEL1.CAPTION);
Writeln(MyFile, ' ');
FOR LI:=0 TO MEMO2.LINES.COUNT-1 DO
Writeln(MyFile, ' '+MEMO2.LINES[LI]);
System.CloseFile(MyFile);
end;
procedure TForm4.FormShow(Sender: TObject);
begin
IMAGE1.PICTURE.LOADFROMFILE('\LEARN.BMP');
end;
procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);
begin
MEMO1.CLEAR;
MEMO1.HEIGHT:=97;
MEMO1.WIDTH:=145;
MEMO1.LEFT:=480;
MEMO1.TOP:=224;
MEMO2.CLEAR;
MEMO1.LINES.ADD('I MAY HELP YOU SO MUCH !');
end;
procedure TForm4.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
button1.setfocus;
end;
procedure TForm4.Button2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
button2.setfocus;
end;
procedure TForm4.Button3MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
button3.setfocus;
end;
procedure TForm4.Button4MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
button4.setfocus;
end;
procedure TForm4.Button5MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
button5.setfocus;
end;
procedure TForm4.Button6MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
button6.setfocus;
end;
procedure TForm4.Button7MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
button7.setfocus;
end;
procedure TForm4.BitBtn1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
bitbtn1.setfocus;
end;
procedure TForm4.BitBtn2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
bitbtn2.setfocus;
end;
end.